home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / util / misc / MuMu10.lha / MuMu / S / MuMu.NewGroup < prev    next >
Encoding:
AmigaDOS Script File  |  1994-01-26  |  412 b   |  24 lines
  1. .key DIR/K
  2. .bra {
  3. .ket }
  4.  
  5. ;
  6. ; Example-Script for creating a new Group
  7. ;    $VER: NewGroup 1.0 (8.1.94) by Litrik De Roy
  8. ;
  9.  
  10.  
  11. IF `UserInfo QUICK` EQ "root"
  12.     IF NOT EXISTS {dir}
  13.         Echo "Creating template Group directory..."
  14.         MakeDir {dir}
  15.         SetOwner {dir} root QUIET
  16.         MProtect {dir} RW GROUP R OTHER R QUIET
  17.         Echo "Done."
  18.     ELSE
  19.         Echo "Directory {dir} already exists."
  20.     ENDIF
  21. ELSE
  22.     Echo "Access not allowed."
  23. ENDIF
  24.